Dim sUsername
Dim sGateway

sUserName = ""
sGateway = ""
'======================================================
Dim ret
  Set OBJ = CreateObject("ActivCard.Authority")

  call OBJ.CheckGateway(sUserName, sGateway, ret)

  Msgbox ret

  Set OBJ = Nothing